home *** CD-ROM | disk | FTP | other *** search
/ PC-SIG Library 8 / PC-SIG Library CD-ROM (8th Edition) (1990-04).iso / 001_100 / disk0059 / quickref.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1983-04-19  |  13.3 KB  |  459 lines
  1. 10  '
  2. 20  '
  3. 30  ' QUICKREF: A Quick Refresh For Function Keys    (Version 1.0)
  4. 40  ' (c) Copyright 1983, LSI Associates       All Rights Reserved
  5. 50  '
  6. 60  ' by Sheila Wersal
  7. 70  '
  8. 80  '
  9. 90  '
  10. 100  '
  11. 110  ' **************************** NOTICE *****************************
  12. 120  ' *  A  limited license is granted to all users of this program,  *
  13. 130  ' *  to make copies of this program and distribute them to other  *
  14. 140  ' *  users, on the following conditions:                          *
  15. 150  ' *     1. The notices contained in lines  10 through 640 of the  *
  16. 160  ' *        program are not to be altered or removed.              *
  17. 170  ' *     2. The program is not to be distributed to others in      *
  18. 180  ' *        modified form.                                         *
  19. 190  ' *     3. No fee is to be charged for copying or distributing    *
  20. 200  ' *        the program without an express written agreement with  *
  21. 210  ' *        LSI ASSOCIATES, P.O. Box G, Gilroy, CA  94020.         *
  22. 220  ' *                                                               *
  23. 230  ' *               (c) COPYRIGHT 1983 LSI Associates               *
  24. 240  ' *****************************************************************
  25. 250  '
  26. 260  '
  27. 270  '
  28. 280  GOTO 370   ' BRANCH TO MAIN LINE PROGRAM
  29. 290  GOTO 1020   ' TEMPLATE ENTRY
  30. 300  GOTO 1460  ' WRITE FILE
  31. 310  GOTO 1960  ' PRINT FILE
  32. 320  GOTO 2810  ' READ FILE
  33. 330  GOTO 3310  ' PUT TO SCREEN
  34. 340  GOTO 4160  ' ERROR ROUTINE
  35. 350  GOTO 4250  ' FUNCTION KEYS
  36. 360  GOTO 4320  ' KEYBOARD ENTRY
  37. 370  COLOR 7,0:KEY OFF:CLS : LOCATE 6,1
  38. 380  PRINT "      ERRTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENOPTION"
  39. 390  PRINT "      CALL                                                                   CALL"
  40. 400  PRINT "      CALL                                                                   CALL"
  41. 410  PRINT "      CALL                                                                   CALL"
  42. 420  PRINT "      CALL                                                                   CALL"
  43. 430  PRINT "      CALL                                                                   CALL"
  44. 440  PRINT "      CALL                                                                   CALL"
  45. 450  PRINT "      CALL                                                                   CALL"
  46. 460  PRINT "      CALL                                                                   CALL"
  47. 470  PRINT "      ERLTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENSAVE"
  48. 480  LOCATE 9,33: PRINT "Q U I C K   R E F"
  49. 490  LOCATE 12,25 : PRINT "(c) COPYRIGHT 1983 LSI Associates "
  50. 500  FOR DELAY = 1 TO 2000 : NEXT
  51. 510  FOR N=1 TO 10 : KEY N,"":NEXT
  52. 520  CLS
  53. 530  LOCATE 1,10:PRINT "This program will generate a listing of the function keys for any"
  54. 540  LOCATE 2,7 :PRINT "application  program  you desire.   This listing will be apporx. 2x8"
  55. 550  LOCATE 3,7 :PRINT "inches in size and will lay on the top  keyboard  ledge  very nicely"
  56. 560  LOCATE 4,7 :PRINT "providing quick refresh to the purpose of the function keys relative"
  57. 570  LOCATE 5,7 :PRINT "to the job you are running."
  58. 580  LOCATE 7,16:PRINT "For samples list the following files with opton 3."
  59. 590  LOCATE 9,23:PRINT "BASIC      EW      TEMPLE     QR"
  60. 600  LOCATE 14,15: PRINT "If you have used this program and found it of value  "
  61. 610  LOCATE 15,14: PRINT "your contribution ($10 suggested) will be appreciated."
  62. 620  LOCATE 17,33: PRINT "LSI Associates"
  63. 630  LOCATE 18,26: PRINT "P.O. Box G, Gilroy, CA 95020"
  64. 640  LOCATE 20,10: PRINT "You are encouraged to copy and share this program with others."
  65. 650  LOCATE 23,25 :COLOR 0,7 : PRINT "  PRESS ANY KEY TO CONTINUE  " : COLOR 7,0
  66. 660  ANYK$=INKEY$ : IF ANYK$="" GOTO 660
  67. 670  DIM FKEY$(10),AKEY$(10),CKEY$(10),SKEY$(10)
  68. 680  FOR L=1 TO 10 :FKEY$(L)="":AKEY$(L)="":CKEY$(L)="":SKEY$(L)="":NEXT L
  69. 690  TM$="n" : ANS$="" : ROWA$="" : ROWC$="" : ROWS$="" : TITLE$=""
  70. 700  CLS :COLOR 7,0:PRINT
  71. 710  LOCATE 2,11:COLOR 0,7:PRINT "F1";:COLOR 7,0
  72. 720  LOCATE 2,15:PRINT "CREATE";
  73. 730  LOCATE 2,31:COLOR 0,7:PRINT "F4";:COLOR 7,0
  74. 740  LOCATE 2,35:PRINT "DISPLAY";
  75. 750  LOCATE 2,51:COLOR 0,7:PRINT "F10";:COLOR 7,0
  76. 760  LOCATE 2,56:PRINT "EXIT TO DOS"
  77. 770  LOCATE 4,11:COLOR 0,7:PRINT "F2";:COLOR 7,0
  78. 780  LOCATE 4,15:PRINT "UPDATE"
  79. 790  LOCATE 4,31:COLOR 0,7:PRINT "F5";:COLOR 7,0
  80. 800  LOCATE 4,35:PRINT "DELETE"
  81. 810  LOCATE 4,51:COLOR 0,7:PRINT "ESC";:COLOR 7,0
  82. 820  LOCATE 4,56:PRINT "CANCEL Operation"
  83. 830  LOCATE 6,11:COLOR 0,7:PRINT "F3";:COLOR 7,0
  84. 840  LOCATE 6,15:PRINT "PRINT";
  85. 850  LOCATE 6,31:COLOR 0,7:PRINT "F6";:COLOR 7,0
  86. 860  LOCATE 6,35:PRINT "END Creation or Update"
  87. 870  PRINT
  88. 880  PRINT : LINE2$=STRING$(75,"-") : PRINT "Existing KEY files on disk" : PRINT LINE2$
  89. 890  FILES "*.KEY"
  90. 900  PRINT : PRINT LINE2$
  91. 910  K$=INKEY$ : IF K$ = "" GOTO 910
  92. 920  IF LEN (K$) <2 THEN BEEP: ELSE GOTO 940
  93. 930  GOTO 910
  94. 940  IF ASC(MID$(K$,2,1))=59 THEN GOSUB 4250
  95. 950  IF ASC(MID$(K$,2,1))=60 THEN GOSUB 4260
  96. 960  IF ASC(MID$(K$,2,1))=61 THEN GOSUB 4270
  97. 970  IF ASC(MID$(K$,2,1))=62 THEN GOSUB 4280
  98. 980  IF ASC(MID$(K$,2,1))=63 THEN GOSUB 4290
  99. 990  IF ASC(MID$(K$,2,1))=68 THEN GOTO  1050
  100. 1000  BEEP : GOTO 910
  101. 1010  ' ---------------------------- ROW INPUT ----------------------------------
  102. 1020  PRINT : PRINT "FILE NAME ?  [Eight characters max (no extension)] ........ [ "FL$" ]";:LOCATE ,52:GOSUB 4470
  103. 1030  IF ANS$<>"" THEN FL$=ANS$
  104. 1040  ON S GOTO 1070,2810,2810,2810,1060,1460
  105. 1050  CLS:SYSTEM
  106. 1060  ON ERROR GOTO 4160:KILL FL$+".KEY": GOTO 680
  107. 1070  V=CSRLIN:LOCATE 25,25:COLOR 0,15:PRINT " F6 to END Creation or Update ";:LOCATE V,1:COLOR 7,0:PRINT
  108. 1080  FOR N= 1 TO 5 :KEY (N) OFF:NEXT:KEY (10) OFF
  109. 1090  PRINT "PROGRAM NAME"; TAB(20) "........";" [ ";TITLE$;" ]  ";:LOCATE,20
  110. 1100  GOSUB 4320 : IF ANS$<>"" THEN TITLE$=ANS$
  111. 1110  PRINT
  112. 1120  FOR K = 1 TO 10
  113. 1130  PRINT "FUNCTION KEYS 1 -> 10";"  (";K;")  ";TAB(36) ".........";"  [ ";FKEY$(K);" ]";:LOCATE,36
  114. 1140  GOSUB 4320 : IF ANS$<>"" THEN FKEY$(K)=ANS$
  115. 1150  PRINT
  116. 1160  NEXT K
  117. 1170  PRINT "TITLE FOR SECOND ROW ";
  118. 1180  PRINT "  ............";"  [ ";ROWA$;" ]";:LOCATE ,24
  119. 1190  GOSUB 4320 : IF ANS$<>"" THEN ROWA$=ANS$
  120. 1200  PRINT
  121. 1210  FOR A = 1 TO 10
  122. 1220  PRINT ROWA$; " KEYS 1 -> 10";"  (";A;")  ";TAB(36) ".........";"  [ ";AKEY$(A);" ]";:LOCATE,36
  123. 1230  GOSUB 4320 : IF ANS$<>"" THEN AKEY$(A)=ANS$
  124. 1240  PRINT
  125. 1250  NEXT A
  126. 1260  PRINT "TITLE FOR THIRD ROW ";
  127. 1270  PRINT "   ............";"  [ ";ROWC$;" ]";:LOCATE ,24
  128. 1280  GOSUB 4320 : IF ANS$<>"" THEN ROWC$=ANS$
  129. 1290  PRINT
  130. 1300  FOR C = 1 TO 10
  131. 1310  PRINT ROWC$; " KEYS 1 -> 10";"  (";C;")  ";TAB(36) ".........";"  [ ";CKEY$(C);" ]";:LOCATE,36
  132. 1320  GOSUB 4320 : IF ANS$<>"" THEN CKEY$(C)=ANS$
  133. 1330  PRINT
  134. 1340  NEXT C
  135. 1350  PRINT "TITLE FOR FOURTH ROW ";
  136. 1360  PRINT "  ............";"  [ ";ROWS$;" ]";:LOCATE ,24
  137. 1370  GOSUB 4320 : IF ANS$<>"" THEN ROWS$=ANS$
  138. 1380  PRINT
  139. 1390  FOR S = 1 TO 10
  140. 1400  PRINT ROWS$; " KEYS 1 -> 10";"  (";S;")  ";TAB(36) ".........";"  [ ";SKEY$(S);" ]";:LOCATE,36
  141. 1410  GOSUB 4320 : IF ANS$<> "" THEN SKEY$(S)=ANS$
  142. 1420  PRINT
  143. 1430  NEXT S
  144. 1440  GOTO 1460
  145. 1450  ' ---------------------------- WRITE FILE ---------------------------------
  146. 1460  OPEN FL$+".KEY" FOR OUTPUT AS #1
  147. 1470  PRINT #1, TM$
  148. 1480  PRINT #1, TITLE$
  149. 1490  PRINT #1, FKEY$(1)
  150. 1500  PRINT #1, FKEY$(2)
  151. 1510  PRINT #1, FKEY$(3)
  152. 1520  PRINT #1, FKEY$(4)
  153. 1530  PRINT #1, FKEY$(5)
  154. 1540  PRINT #1, FKEY$(6)
  155. 1550  PRINT #1, FKEY$(7)
  156. 1560  PRINT #1, FKEY$(8)
  157. 1570  PRINT #1, FKEY$(9)
  158. 1580  PRINT #1, FKEY$(10)
  159. 1590  PRINT #1, ROWA$
  160. 1600  PRINT #1, AKEY$(1)
  161. 1610  PRINT #1, AKEY$(2)
  162. 1620  PRINT #1, AKEY$(3)
  163. 1630  PRINT #1, AKEY$(4)
  164. 1640  PRINT #1, AKEY$(5)
  165. 1650  PRINT #1, AKEY$(6)
  166. 1660  PRINT #1, AKEY$(7)
  167. 1670  PRINT #1, AKEY$(8)
  168. 1680  PRINT #1, AKEY$(9)
  169. 1690  PRINT #1, AKEY$(10)
  170. 1700  PRINT #1, ROWC$
  171. 1710  PRINT #1, CKEY$(1)
  172. 1720  PRINT #1, CKEY$(2)
  173. 1730  PRINT #1, CKEY$(3)
  174. 1740  PRINT #1, CKEY$(4)
  175. 1750  PRINT #1, CKEY$(5)
  176. 1760  PRINT #1, CKEY$(6)
  177. 1770  PRINT #1, CKEY$(7)
  178. 1780  PRINT #1, CKEY$(8)
  179. 1790  PRINT #1, CKEY$(9)
  180. 1800  PRINT #1, CKEY$(10)
  181. 1810  PRINT #1, ROWS$
  182. 1820  PRINT #1, SKEY$(1)
  183. 1830  PRINT #1, SKEY$(2)
  184. 1840  PRINT #1, SKEY$(3)
  185. 1850  PRINT #1, SKEY$(4)
  186. 1860  PRINT #1, SKEY$(5)
  187. 1870  PRINT #1, SKEY$(6)
  188. 1880  PRINT #1, SKEY$(7)
  189. 1890  PRINT #1, SKEY$(8)
  190. 1900  PRINT #1, SKEY$(9)
  191. 1910  PRINT #1, SKEY$(10)
  192. 1920  CLOSE #1
  193. 1930  KEY (6) OFF
  194. 1940  CLS :GOTO 680
  195. 1950  ' --------------------------- PRINT FILE ---------------------------------
  196. 1960  PRINT :PRINT : PRINT "ALIGN PAPER AND PRESS ANY KEY WHEN READY"
  197. 1970  P$=INKEY$ : IF P$ = "" GOTO 1970
  198. 1980  IF P$=CHR$(27) GOTO 680
  199. 1990  ON ERROR GOTO 4160
  200. 2000  WIDTH "LPT1:",255:LPRINT CHR$(15);
  201. 2010  PRINT : PRINT "Printing Template............."
  202. 2020  LINE3$ = STRING$(131,"-")
  203. 2030  LPRINT LINE3$;
  204. 2040  WIDTH "LPT1:",80:LPRINT CHR$(27)"E";CHR$(27)"G"
  205. 2050  IF TM$="N" OR TM$="n" THEN PAD = (38-LEN(TITLE$))\2 ELSE 2070
  206. 2060  GOTO 2080
  207. 2070  PAD = (36-LEN(TITLE$))\2
  208. 2080  TITLE$ = STRING$(PAD," ")+TITLE$
  209. 2090  LPRINT CHR$(142)+TITLE$;
  210. 2100  LPRINT CHR$(27)"F";CHR$(27)"H";
  211. 2110  LPRINT CHR$(15);:IF TM$="C" OR TM$="c" THEN LPRINT " (c)";
  212. 2120  IF TM$="TM" OR TM$="tm" THEN LPRINT " (tm)" ELSE LPRINT
  213. 2130  LPRINT CHR$(144):WIDTH "LPT1:",255
  214. 2140  LINE1$ = STRING$(131,"*")
  215. 2150  LPRINT LINE1$
  216. 2160  LPRINT "*   FUNCTION KEY";
  217. 2170  LPRINT TAB(20) "---F 1---";
  218. 2180  LPRINT TAB(31) "---F 2---";
  219. 2190  LPRINT TAB(42) "---F 3---";
  220. 2200  LPRINT TAB(53) "---F 4---";
  221. 2210  LPRINT TAB(64) "---F 5---";
  222. 2220  LPRINT TAB(75) "---F 6---";
  223. 2230  LPRINT TAB(86) "---F 7---";
  224. 2240  LPRINT TAB(97) "---F 8---";
  225. 2250  LPRINT TAB(108) "---F 9---";
  226. 2260  LPRINT TAB(119) "---F10---";
  227. 2270  LPRINT TAB(131) "*"
  228. 2280  LPRINT "* ";
  229. 2290  LPRINT TAB(20) FKEY$(1);
  230. 2300  LPRINT TAB(31) FKEY$(2);
  231. 2310  LPRINT TAB(42) FKEY$(3);
  232. 2320  LPRINT TAB(53) FKEY$(4);
  233. 2330  LPRINT TAB(64) FKEY$(5);
  234. 2340  LPRINT TAB(75) FKEY$(6);
  235. 2350  LPRINT TAB(86) FKEY$(7);
  236. 2360  LPRINT TAB(97) FKEY$(8);
  237. 2370  LPRINT TAB(108) FKEY$(9);
  238. 2380  LPRINT TAB(119) FKEY$(10);
  239. 2390  LPRINT TAB(131) "*"
  240. 2400  LPRINT "*  "ROWA$;
  241. 2410  LPRINT TAB(20) AKEY$(1);
  242. 2420  LPRINT TAB(31) AKEY$(2);
  243. 2430  LPRINT TAB(42) AKEY$(3);
  244. 2440  LPRINT TAB(53) AKEY$(4);
  245. 2450  LPRINT TAB(64) AKEY$(5);
  246. 2460  LPRINT TAB(75) AKEY$(6);
  247. 2470  LPRINT TAB(86) AKEY$(7);
  248. 2480  LPRINT TAB(97) AKEY$(8);
  249. 2490  LPRINT TAB(108) AKEY$(9);
  250. 2500  LPRINT TAB(119) AKEY$(10);
  251. 2510  LPRINT TAB(131) "*"
  252. 2520  LPRINT "*  ";ROWC$;
  253. 2530  LPRINT TAB(20) CKEY$(1);
  254. 2540  LPRINT TAB(31) CKEY$(2);
  255. 2550  LPRINT TAB(42) CKEY$(3);
  256. 2560  LPRINT TAB(53) CKEY$(4);
  257. 2570  LPRINT TAB(64) CKEY$(5);
  258. 2580  LPRINT TAB(75) CKEY$(6);
  259. 2590  LPRINT TAB(86) CKEY$(7);
  260. 2600  LPRINT TAB(97) CKEY$(8);
  261. 2610  LPRINT TAB(108) CKEY$(9);
  262. 2620  LPRINT TAB(119) CKEY$(10);
  263. 2630  LPRINT TAB(131) "*"
  264. 2640  LPRINT "*  ";ROWS$;
  265. 2650  LPRINT TAB(20) SKEY$(1);
  266. 2660  LPRINT TAB(31) SKEY$(2);
  267. 2670  LPRINT TAB(42) SKEY$(3);
  268. 2680  LPRINT TAB(53) SKEY$(4);
  269. 2690  LPRINT TAB(64) SKEY$(5);
  270. 2700  LPRINT TAB(75) SKEY$(6);
  271. 2710  LPRINT TAB(86) SKEY$(7);
  272. 2720  LPRINT TAB(97) SKEY$(8);
  273. 2730  LPRINT TAB(108) SKEY$(9);
  274. 2740  LPRINT TAB(119) SKEY$(10);
  275. 2750  LPRINT TAB(131) "*"
  276. 2760  LPRINT LINE1$
  277. 2770  LPRINT LINE3$
  278. 2780  'LPRINT CHR$(27)+"@";
  279. 2790  CLS :GOTO 680
  280. 2800  ' --------------------------- READ FILE ----------------------------------
  281. 2810  ON ERROR GOTO 4160 :OPEN FL$+".KEY" FOR INPUT AS #1
  282. 2820  FOR N = 1 TO 6:KEY(N) OFF:NEXT
  283. 2830  LINE INPUT #1, TM$
  284. 2840  LINE INPUT #1, TITLE$
  285. 2850  LINE INPUT #1, FKEY$(1)
  286. 2860  LINE INPUT #1, FKEY$(2)
  287. 2870  LINE INPUT #1, FKEY$(3)
  288. 2880  LINE INPUT #1, FKEY$(4)
  289. 2890  LINE INPUT #1, FKEY$(5)
  290. 2900  LINE INPUT #1, FKEY$(6)
  291. 2910  LINE INPUT #1, FKEY$(7)
  292. 2920  LINE INPUT #1, FKEY$(8)
  293. 2930  LINE INPUT #1, FKEY$(9)
  294. 2940  LINE INPUT #1, FKEY$(10)
  295. 2950  LINE INPUT #1, ROWA$
  296. 2960  LINE INPUT #1, AKEY$(1)
  297. 2970  LINE INPUT #1, AKEY$(2)
  298. 2980  LINE INPUT #1, AKEY$(3)
  299. 2990  LINE INPUT #1, AKEY$(4)
  300. 3000  LINE INPUT #1, AKEY$(5)
  301. 3010  LINE INPUT #1, AKEY$(6)
  302. 3020  LINE INPUT #1, AKEY$(7)
  303. 3030  LINE INPUT #1, AKEY$(8)
  304. 3040  LINE INPUT #1, AKEY$(9)
  305. 3050  LINE INPUT #1, AKEY$(10)
  306. 3060  LINE INPUT #1, ROWC$
  307. 3070  LINE INPUT #1, CKEY$(1)
  308. 3080  LINE INPUT #1, CKEY$(2)
  309. 3090  LINE INPUT #1, CKEY$(3)
  310. 3100  LINE INPUT #1, CKEY$(4)
  311. 3110  LINE INPUT #1, CKEY$(5)
  312. 3120  LINE INPUT #1, CKEY$(6)
  313. 3130  LINE INPUT #1, CKEY$(7)
  314. 3140  LINE INPUT #1, CKEY$(8)
  315. 3150  LINE INPUT #1, CKEY$(9)
  316. 3160  LINE INPUT #1, CKEY$(10)
  317. 3170  LINE INPUT #1, ROWS$
  318. 3180  LINE INPUT #1, SKEY$(1)
  319. 3190  LINE INPUT #1, SKEY$(2)
  320. 3200  LINE INPUT #1, SKEY$(3)
  321. 3210  LINE INPUT #1, SKEY$(4)
  322. 3220  LINE INPUT #1, SKEY$(5)
  323. 3230  LINE INPUT #1, SKEY$(6)
  324. 3240  LINE INPUT #1, SKEY$(7)
  325. 3250  LINE INPUT #1, SKEY$(8)
  326. 3260  LINE INPUT #1, SKEY$(9)
  327. 3270  LINE INPUT #1, SKEY$(10)
  328. 3280  CLOSE #1
  329. 3290  ON S GOTO 1070,1070,1960,3310
  330. 3300  ' --------------------------- PUT TO SCREEN ------------------------------
  331. 3310  IF TM$="N" OR TM$="n" THEN PAD = (75-LEN(TITLE$))\2 ELSE 3330
  332. 3320  GOTO 3340
  333. 3330  PAD = (72-LEN(TITLE$))\2
  334. 3340  TITLE$ = STRING$(PAD," ")+TITLE$
  335. 3350  CLS: COLOR 15,0 : PRINT  TITLE$; : COLOR 7,0
  336. 3360  IF TM$="c" OR TM$="C" THEN PRINT " (c)";
  337. 3370  IF TM$="tm" OR TM$="TM" THEN PRINT " (tm)" ELSE PRINT
  338. 3380  LINE1$ = STRING$(75,"*")
  339. 3390  PRINT LINE1$
  340. 3400  PRINT "*  FUNCTION KEY";
  341. 3410  PRINT TAB(20) "---F 1---";
  342. 3420  PRINT TAB(31) "---F 2---";
  343. 3430  PRINT TAB(42) "---F 3---";
  344. 3440  PRINT TAB(53) "---F 4---";
  345. 3450  PRINT TAB(64) "---F 5---";
  346. 3460  PRINT TAB(75)"*"
  347. 3470  PRINT "*";
  348. 3480  PRINT TAB(20) FKEY$(1);
  349. 3490  PRINT TAB(31) FKEY$(2);
  350. 3500  PRINT TAB(42) FKEY$(3);
  351. 3510  PRINT TAB(53) FKEY$(4);
  352. 3520  PRINT TAB(64) FKEY$(5);
  353. 3530  PRINT TAB(75)"*"
  354. 3540  PRINT "*  "ROWA$;
  355. 3550  PRINT TAB(20) AKEY$(1);
  356. 3560  PRINT TAB(31) AKEY$(2);
  357. 3570  PRINT TAB(42) AKEY$(3);
  358. 3580  PRINT TAB(53) AKEY$(4);
  359. 3590  PRINT TAB(64) AKEY$(5);
  360. 3600  PRINT TAB(75)"*"
  361. 3610  PRINT "*  ";ROWC$;
  362. 3620  PRINT TAB(20) CKEY$(1);
  363. 3630  PRINT TAB(31) CKEY$(2);
  364. 3640  PRINT TAB(42) CKEY$(3);
  365. 3650  PRINT TAB(53) CKEY$(4);
  366. 3660  PRINT TAB(64) CKEY$(5);
  367. 3670  PRINT TAB(75)"*"
  368. 3680  PRINT "*  ";ROWS$;
  369. 3690  PRINT TAB(20) SKEY$(1);
  370. 3700  PRINT TAB(31) SKEY$(2);
  371. 3710  PRINT TAB(42) SKEY$(3);
  372. 3720  PRINT TAB(53) SKEY$(4);
  373. 3730  PRINT TAB(64) SKEY$(5);
  374. 3740  PRINT TAB(75)"*"
  375. 3750  PRINT LINE1$
  376. 3760  PRINT "*  FUNCTION KEY";
  377. 3770  PRINT TAB(20) "---F 6---";
  378. 3780  PRINT TAB(31) "---F 7---";
  379. 3790  PRINT TAB(42) "---F 8---";
  380. 3800  PRINT TAB(53) "---F 9---";
  381. 3810  PRINT TAB(64) "---F10---";
  382. 3820  PRINT TAB(75)"*"
  383. 3830  PRINT "*";
  384. 3840  PRINT TAB(20) FKEY$(6);
  385. 3850  PRINT TAB(31) FKEY$(7);
  386. 3860  PRINT TAB(42) FKEY$(8);
  387. 3870  PRINT TAB(53) FKEY$(9);
  388. 3880  PRINT TAB(64) FKEY$(10);
  389. 3890  PRINT TAB(75)"*"
  390. 3900  PRINT "*  "ROWA$;
  391. 3910  PRINT TAB(20) AKEY$(6);
  392. 3920  PRINT TAB(31) AKEY$(7);
  393. 3930  PRINT TAB(42) AKEY$(8);
  394. 3940  PRINT TAB(53) AKEY$(9);
  395. 3950  PRINT TAB(64) AKEY$(10);
  396. 3960  PRINT TAB(75)"*"
  397. 3970  PRINT "*  ";ROWC$;
  398. 3980  PRINT TAB(20) CKEY$(6);
  399. 3990  PRINT TAB(31) CKEY$(7);
  400. 4000  PRINT TAB(42) CKEY$(8);
  401. 4010  PRINT TAB(53) CKEY$(9);
  402. 4020  PRINT TAB(64) CKEY$(10);
  403. 4030  PRINT TAB(75)"*"
  404. 4040  PRINT "*  ";ROWS$;
  405. 4050  PRINT TAB(20) SKEY$(6);
  406. 4060  PRINT TAB(31) SKEY$(7);
  407. 4070  PRINT TAB(42) SKEY$(8);
  408. 4080  PRINT TAB(53) SKEY$(9);
  409. 4090  PRINT TAB(64) SKEY$(10);
  410. 4100  PRINT TAB(75)"*"
  411. 4110  PRINT LINE1$
  412. 4120  LOCATE 24,17:COLOR 0,15 :PRINT "  PRESS ANY KEY TO RETURN TO SELECTION  ";
  413. 4130  ANY$=INKEY$ : IF ANY$="" GOTO 4130
  414. 4140  COLOR 7,0 :CLS :GOTO 680
  415. 4150  ' --------------------------- ERROR ROUTINES -----------------------------
  416. 4160  IF ERR=53 OR ERR=52 GOTO 4210
  417. 4170  IF ERR = 27 OR ERR = 24 GOTO 4230
  418. 4180  IF ERR = 71 OR ERR = 70 GOTO 4220
  419. 4190  KEY 1,"LIST ":KEY 2,"RUN"+CHR$(13):KEY 3,"LOAD"+CHR$(34):KEY 4,"SAVE"+CHR$(34):KEY 5,"CONT":KEY ON
  420. 4200  ON ERROR GOTO 0 : GOTO 0
  421. 4210  BEEP :PRINT : PRINT " PROGRAM NOT FOUND " : RESUME 1020
  422. 4220  BEEP:PRINT:PRINT "Disk not ready or write protected......................":RESUME 1020
  423. 4230  BEEP:PRINT : PRINT "Printer not ready or out of paper....................":RESUME 1960
  424. 4240  ' --------------------------- FUNCTION KEYS ------------------------------
  425. 4250  V=CSRLIN:LOCATE 2,15:COLOR 31,0:PRINT "CREATE";:COLOR 7,0:S=1 :LOCATE V,1: RETURN 1020
  426. 4260  V=CSRLIN:LOCATE 4,15:COLOR 31,0:PRINT "UPDATE";: COLOR 7,0:S=2 :LOCATE V,1: RETURN 1020
  427. 4270  V=CSRLIN:LOCATE 6,15:COLOR 31,0:PRINT "PRINT";:COLOR 7,0:S=3 :LOCATE V,1: RETURN 1020
  428. 4280  V=CSRLIN:LOCATE 2,35:COLOR 31,0:PRINT "DISPLAY";:S=4 :COLOR 7,0:LOCATE V,1: RETURN 1020
  429. 4290  V=CSRLIN:LOCATE 4,35:COLOR 31,0:PRINT "DELETE";:S=5:COLOR 7,0:LOCATE V,1:RETURN 1020
  430. 4300  RETURN 1460
  431. 4310  ' --------------------------- KEYBOARD ENTRY AREA ------------------------
  432. 4320  ANS$="" : GOTO 4340
  433. 4330  BEEP
  434. 4340  K$=INKEY$ : IF K$ ="" GOTO 4340
  435. 4350  IF K$=CHR$(27) GOTO 680
  436. 4360  IF K$=CHR$(13) THEN RETURN
  437. 4370  IF LEN (K$)>1 THEN IF ASC(MID$(K$,2,1))=64 THEN GOTO 1460  ELSE 4330
  438. 4380  IF K$=CHR$(8) THEN XX=POS(0) ELSE 4430
  439. 4390  L1=LEN(ANS$)
  440. 4400  L2=L1-1
  441. 4410  ANS$=LEFT$(ANS$,L2)
  442. 4420  LOCATE,XX-1:PRINT " ";:LOCATE,XX-1:GOTO 4340
  443. 4430  PRINT K$;: ANS$=ANS$+K$
  444. 4440  GOTO 4340
  445. 4450  ' --------------------------- KEYBOARD ENTRY AREA FOR FILENAME -----------
  446. 4460  BEEP
  447. 4470  ANS$=""
  448. 4480  K$=INKEY$ : IF K$ ="" GOTO 4480
  449. 4490  IF K$=CHR$(27) GOTO 680
  450. 4500  IF K$=CHR$(13) THEN RETURN
  451. 4510  IF LEN (K$)>1 THEN GOTO 4460
  452. 4520  IF K$=CHR$(8) THEN XX=POS(0) ELSE 4570
  453. 4530  L1=LEN(ANS$)
  454. 4540  L2=L1-1
  455. 4550  ANS$=LEFT$(ANS$,L2)
  456. 4560  LOCATE,XX-1:PRINT " ";:LOCATE,XX-1:GOTO 4480
  457. 4570  PRINT K$;: ANS$=ANS$+K$
  458. 4580  GOTO 4480
  459.